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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ITAL L Foue pret CORPORATION, MAYNARD. MASSACHUSETTS. 


RIGHTS 


S SOFTWARE IS aie UNDER A LICENSE AND MAY BE USED AND gd ba 
Y_ IN emi ee THE TERMS OF SUCH LICENSE AND WITH THE 
f ION THE E ABOVE. COPYRIGHT NO NOTICE. THIS SOFTWARE OR ANY OTHER 
S_TH HEREOF A BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS. HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
onRPORaT ioe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS BY 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


LIT 
S NOT SUPPLIED BY DIGITAL. 


FACILITY: 

ABSTRACT: 

ENVIRONMENT : 

AUTHOR: PETER H. LIPMAN , CREATION DATE: 22-MAY-78 

MODIFIED BY: 

v03-003 TCROOO! Trudy C. Matthews weet 

Change references to working set fields in HD o. she 
they are used as unsigned words. 


v03-002 wMc0001 ayne Cardoza 10-Mar-1983 
Change use of MMGSCRECOMS vo individual celta, 


V03-001 LJKO194 yr nce J. Kenah 31-Jan-1983 
Insure that simplif ying assumption remains valid while 
removing global pages from working set. 
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voe-000 = Purge Worki i 
wie DECLARATIONS? Set System Serv 


; INCLUDE FILES: 


Sees 
= 
o 
Ps 
oO 
17) 


; EQUATED SYMBOL 

; Offset from AP 
INADR 

; OWN STORAGE: 
LIST 


00000004 
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«SBTTL DECLARATIONS 


Processor opt cerity levels 

;_Offsets from FP into gcceten area 
‘Process control block definitions 

Page frame number + A sees definitions 
:Process header defin 
:Processor register definition 

sProcessor status tong ye vere “definitions 
Page table entry ort ni 

severee status code det initions 

sWorking set List definitions 


= 4 :0ffset to input range 
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sith -SBTTL PURGWS = Purge Working Set 
$ FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 
CALLG ARGLIST,G*SYSSPURGWS 


INPUT PARAMETERS: 
INADR(AP) = Address of 2 long words the ist of which specifies 
the starting virtual address to purge, the 2nd specifies 
the ending virtual address to purge (inclusive). 


IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
RO = System status code 
IMPLICIT OUTPUTS: 


Coooo 


1 
1 
1 
1 

‘ p } NONE 

2006 } COMPLETION CODES: 

D000 = SS$_NORMAL Successful completion 

D006 1 SS$_ACCVIO sAccess violation 

D00C 11 SIDE EFFECTS: 

D000 Ss 11 NONE 

if ve 11 

00018 

ii OU 11 RRAKTAAAAAAAAAAAAAAAATATAEATAAAARAAAAAAAAAAAAAAAAAAAAAAAARAERAAAAAEAAEEAEAAE 

5006 1 eeeerereeereneee THE FOLLOWING CODE MAY BE PAGED eeeeeeeeeeeerener 

00000000 3 .PSECT YSEXEPAGED 
wt i : RHR AEKA AAAS THAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAEAAAAAAAAAEEE 
O1FC 0006 124 ° -ENTRY EXESPURGWS , “M<R2,R3,R4,R5,R6,R7 RED 
56 SB'AF 9 it 1 MOVAB + B*MMGSPURGWSPAG,R6 sAddress of purge subroutine 
SE. C=C 00061 SUBL $“#-HMG C LENGTH. SP sReserve scratch area 
52 04 a 9 00091 MOVL NADR(AP)<R Get address range parameter 
2 D00D } BEQL $ sBranch if none specified 
DOOF = IFNORD # (R2) 02 $ :Branch if not readable by caller 
62 08 2 § Bot PROBE 40,48, (R2) 
52 0015131 HO R2),R :R2_= STARTVA, R3 = ENDVA 
F4 AD D4 OOIB 138 CLRL BTRMGSL _SAVRETADR (EP) {Init return range 
FB AD D4 OO1B 1 CLRL “MMGSL_CALLEDIPL(FP) ;Init called IPL 
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PURGW 


a fo 
FC AD 


FANNING SOMO 


AX/VMS Macro V04-00 Page 
SYS.SRCISYSPURGWS .MAR; 1 


I BIEN 


130 MOVPSL RO et Processor Status 
1 EXTZV #PSLSV PRVMOD #PSLSS paviod~. ;Set access mode 
seTiet Bees ASTDED MAXACMODETFP) ; caller's mode 


LSA STDEL site se to ASTDEL 
MTP FIPLS LASTDEL, sab 
BSBW aaa EDEL 3 Saat code for range handling 


BSBW RNG SRE TRANCE 
fe ,10 


sExit from service 
¢ 3 ; No input address range was specified, or the caller could not read it. 
- 20$:  MOVZWL #SS$_ACCVIO,RO 
8 RET 


eS eed a ad a ae 


Return error if no input range 
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1 ae 
FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 
BSBW MMGSPURGWSPAG 


IO 


INPUT PARAMETERS: 


RQ = ACCESS MODE TO CHECK AGAINST PAGE OWNER 
Re = VIRTUAL ADDRESS (LOW 9 BITS = 0 
R4 = PCB ADDRESS 
R5 = PROCESS HEADER ADDRESS = P1 OR SYSTEM SPACE 
Re = COUNT = 1 OF PAGES REMAINING BE DELETED INCLUDING THIS ONE 
R? = canSee IF goINe FORWARD IN ADDRESS SPA 
= -*X IF GOING BACKWARDS IN ADDRESS SPACE 
IPL = ASTLVL 
IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 

RO = STATUS CODE 

R2 = Address of last page processed 

R6 = Count of pages remaining ( = 1) to process 


IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
SS$_NORMAL 

SIDE EFFECTS: 
NONE 


SUCCESSFUL RETURN 


RRAREAAATERE REA A EERE AAA AAAAAAAAAAAAAAAARAAAAAAAAAAAAARARARE AERA AES 
eeeeereeeeeeeere THE FOLLOWING CODE MAY BE PAGED teeeneeneneeeenere 

~PSECT YSEXEPAGED 
: SRARATAAAAT ATA A AAA AERA AAA AAARATAAAAAARAREAAARARAREREAAARETAA EATS 
AMGSPURGWSPAG: 

MOVL #1,R8 

JSB_- MMGSPURGWSSCN 
CLRL R6 
mov 2uL #SS$_NORMAL ,RO 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Gs Ge Ge Ge Ge Ge Ge Se Ge Ge Se Se Ge Ge Se Ge Se Se Ge Ge Sse Se Se Ge See Se Se Ge Gee Ge 


OOOO OOO O09 0909 69 69 09 69 09 09 09 SINISE NNN AAA AAAAAO 


PEVLSSSVSSRANS LSSSVSARAN Sos NO lens OOo oe 


Purging general pages 

;Scan working set to purge the pages 
sEnd of range 

Successful completion 


PIP DRIP at st at at et tt tt tt tt tt es 
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PURGWSSCN = Scan 
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~SBTTL PURGWSSCN = Scan Working Set to Purge Pages 
"FUNCTIONAL DESCRIPTION: 


This routine is 8 gal ted to do a scan of the working set List 
for pages in the speci ed virtual address range and delete those 
pages from the working set List. 


CALLING SEQUENCE: 
BSBW MMGSPURGWSSCN 
INPUT PARAMETERS: 


Re = Seceee mode in low byte, flags in rest 
= 
= Process Control Block 
R5 = presees Header Address pe 5 epege © ok) 
R6 = Num 9 pages - 1 rem n range of pages 
R7 = pen 0 it f going forverd. in the address space 
= going pecquerds in the address space 
scanntn onl global Ohi ba a che specified range 
Jeed by MMGSDELPA ee a _s L page is found in the range 
= 1 if scann "9 “* gry pages i . = Specified range 
Used by the ¢ PURGWS System Serv 


; IMPLICIT INPUTS: 


NONE 
OUTPUT PARAMETERS: 


ROR oR2_ PRESERVED 
R8 = RESOURCE TO WAIT FOR ON A FAILED GLOBAL SCAN 


IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 

SIDE EFFECTS: 
NONE 
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$ RGWS - Purge Working Set System sorytes P-1984 5: AX/VAS ro V04-00 Page 
a i PURGUSSCN - Scen Working Set to ce Pa oa 4 “SEP-1 1382 88: & #8 Heys SR SR 48 YSPURGUS.. MAR; 1 ° (b 
ch é : SRAAAAEALEKLASTAAKAAAAKALAATAAAAAAARAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAEEE 
ue e 
dh : eeeeererereeenee THE FOLLOWING CODE MUST BE RESIDENT seeeeneeeereeeere 
ie : 
000000 PSECT SMMGCOD 
: RAK KAAAAAAAEKEAAAAAAEATAAAAAARAAAARAARAARAAAARAERAAAARARAEAAAEAAEAAEAAEAAREAAAAEEE 
: -ENABL LSB 
§ PURGWS_EMPTY: 
O0BF 31 BRW 80$ 3No pages to be purged 
$3 MMGSPURGWSSCN: : 
DSBINT #IPLS$_SYNCH Save called IPL, raise to SYNCH 
7 1 0B MFPR ~ S*#PRS_IPL,-(SP)- 
1 0 DA MTPR #IPL$_ SYNCH, S“#PRS_IPL 


7nd swapping while scanning the WSL 


51 OC AS 3C MOVZWL PHDSW_WSLOCK(RS) ,R1 Start scanning with Lo secke pages 
s is a 
7E 34 AG 3 nove. PCBSW_GPGCNT(R4) ,-(SP) ;Count of GLOBAL pages “Th WSL 


L Branch if scanning for GLOBAL pages 
MOVZWL PHOSW -WSDYN(RS) ,R1 :Don't consider the locked pages 
when tate” nus for alt pag ntrles. 


10 5 3 
51 OE A C 


a i 
D598 
D 74 
1 75 
; 3 
gf it A : 4 ADDW PCBSW_PPGCNT(R4), (SP) iCaleu ate number of 
53 a A C 7 SUBW3 PHDS$W-WSLIST(R5).R1,R3 :Number of entries in Locked 
A 1 0 SUBW (SP) sentry c ynt = GPGCNT + PPECNT = ~ “locked 
OA 1 4 1 5$: PURGW EMPTY : Branch no entries to scan 
5 g § PUSHR #*M<RO,R2> ;Save OTARTUA access mode 
98 57 _ Ff 5 BE #31,R7,10$ Branch if going backwards 
53 F7 gf : 4 ASHL #-9 ,R2,R sLow virtual page number 
50 53 3 5 4 6 R3,RO High virtual page number 
50 52 _ F7 rf ns : ; 108: ASHL #-9,R2,R0 sHigh virtual page number 
53 50 6 ¢ 3 SUBL3 R6,R0,R3 jLow virtual page number 
09 8B 20$:  PUSHR #*A<RO,R3> :Push high VPN, Low VPN 
3 : O(SP) = High virtual page number 
DC 38 3 4(SP) = — ¥ rtual page number 
DC 93 : B(SP) = Access node 
DC 94; (SP) = tee STARVA 
OC 95 ; 16(SP) = Count of pages to scan for 
‘ 38 3 20(SP) = Saved caller's IPL 
52 6541 09 OF 38 24$: = MOVL «= (RS) [R1],R2 :Fetch next WSLE 
6 ED 00 9 BLBC) =—s_-« R260 Branch if not valid 
0 ut BLBC) 8 =—s_ RB, 26S just scanning for GLOBALS 
52 004¢ BITS  #<WSLSM_WSLOCK ! WSLSM_ PENLOCKS Re SATE page types, 
13 O04 : BEL $ but no’ Locked ones 
02 52 03 +3 i ; : 268: bse TEL OV PAST YP -PUSLES PATI. nchit note sGLOBAL page? 
DC :Bran 
5052 FT BF 78 D05A 6 288: ASHE -#-9.R2.RO iGet virtual page 
19 0058 BLSS 32 yatem adaress, then discard it. 
0061 3 sa page table page which is not 
0061 locked in the working set. 


yn 
yn 
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tae tt PURGWSSCN = Seon Working Set to ce Pa "er Pa} 3h 88: §3: i$ Heys. SRC ISYSPURGWS .MAR; 1 . &) v04 
04 AE 5 1 CMP RO,4(SP) gibove the low address? 
4 i} 1 BLS 50$ Branch ifn n9 
6— 5 1 chr 8 (SP) 7Below the IN high address? 
4 4 1 BGT § sBranch { 
1 \3 328 PUSHL R :Save the workin eet list index 
FFSF* 1 BSBW MMGSSVAPTECHK ager = SVAPT 
@) 3 3 16 MOVL (SP) ,R1 Recover WSLX 
2 a3 B18 #<WSCSM_WSLOCK ! WSLSM ue: ils this Pet: locked? 
:8r nch 
50 OC Ag GA 19 RoviBL < <8+4>(SP) ,RO viegs raode t toc 
50 63 02 1 3 CMPZV = #PTESV _OWN ,#PTESS_ OWN, ride ho al to locke the page? 
BLSS $ Ene not. | ust skip it. 
DD PUSHL R thee registse 
be PUSHL R jsaltered by unlock weLe logic 
FF75° 4 BSBW mesh KGBLWSLE sUnlock WSLE for mr age 
43 50 =€9 5 BLBC sError status should nae be returned 
108 8F $ POPR AA<R3,RB> sRecover saved registers 
51 OE AS C MOVZWL PHDSW_WSDYN(RS) ,R1 iNew WSLX for this page 
, 3; RO is available as scratch for the following calculation 
50 52 541 cp 1 XORL3) (R5)CR1),R2,R0 : Insure that PTE located by and 
50 50 F § ASHL #-9,RO,RO 3;_contents of R2 differ only in’ flag bits 
.. % BNEQ 1 bg" Step out of Line if disagreement 
3 4 4 DECL (SP) : Continue a aon from original wslx 
FF59° 30 5 35$: BSBW MMGSFREWSLX sDelete working set List entry 
1F OS E9 $ BLBC RO,90$ ‘Branch if need to wait tar page file 
0 BA $88: POPR #*A<RI> sRecover WSLX to continue scan from 
10 AE 07 3 50$: DECL 16(SP) :Count another page found 
c¢ 15 BLEQ 70$ sBranch if no more to look for 
1 06 40 60$: INCL R1 :Step to next entr 
A 8 MP PHDSW_WSLAST(R zsAre we at the en 
12 AS 1 1 41 C R1 $ ST(RS) h d 
89 1B 4g BLEQU Bag :Branch if more 
te 3 ; Did not find the calculated number of pages in the working set. 
cool 46° BUG_CHECK USLPAGCNT FATAL sWorking set List page count error 
b606" . If IDN <FATAL>,<FATAL> WORD BUGS_WSLPAGCNT!4 
5E 08 CO 47 70$: ADDL #2e :€lean off page numbers 
9 BA 4 POPR #*M<kO,R2> Restore RO = access mode, R2 = STARTVA 
SE 04 CO 49 80$: ADDL #1%4,SP :Clean of f page, count 
50 ENBINT Restore caller's IPL 
12 8€ pA MTPR (SP)+,S*#PRS_IPL’ 
5 1 RSB zsand exit to it 
gj : FREWSLX needed to allocate page file and couldn't 
DE 58 E 5 $08: BLBS RB, 40s sLeave it in working set if SPURGWS 
58 1 ? § MOVL sResource to wait for 
EC BRB ros. :6o back 
iE rror in unlocking a locked global page or 
é : in freeing page from the working se st 
FATAL 


2 joos: BUG_CHECK PURGWSSCN 
.wORD * 


FEFF XFEFF 


vOa-000- PuRGU gcHOrhiog, St, systen Service pa ‘S-SEP-19be 8:86:10 Lsvsvsacisyspunawscnman;1 "8° (8, 


0004' 4 3 LIF ION <FATAL>,<FATAL> , .WORD BUGS _PURGWSSCN!4 
D 23 The first dynamic working set List — does not agree with the contents 
D ; of other registers. The operation must be yp tee at a place in the 
4 § ; working set List appropriate to the type of operation in progress. 
9% £8 D ° 110$: ADDL Ht LA ;Discard corrent WSLX 
EF 5 D LBS R8,100$ sShouldn't be here except for globals 
51 OCA C ope MOVZWL PHOS _WSLOCK(RS5) ,R1 sStart at * he top of the List again 
FF60 i Of rt 120$: BRW ohne and also at the top of the loop 
3 i -DSABL LSB 
E 4 
iH ~END 


SYSPURGWS 
Symbol table 


BUGS _PURGWSSCN 
BUGS “WSL AGENT 
EXE SPUR GWS 
IPL$_ASTDEL 
IPL$" SYN cH 


MMGSERE 
MMGSC LENGTH 
MAG x 


PHDSW"WSLOCK 
PRS 
PSLSS_PRVMOD 
PSL$V_PRVMOD 
PTESS_ 
PTESV 
PURGUS EMPTY 
SS$_ACCVIO 
SSS" NORMAL 
WSLSM_PFNLOCK 
WSLSM_WSLOCK 
WSLS$S_PAGTYP 
WSLSVPAGTYP 


PSECT name 


SABS 
YSEXEPAGED 
SMMGCOD 


Phase 


Initialization 
Pass 1 


113 
01 


ommand processing 
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SYS.SR c58 SYSPURGWS.MAR; 1 


pyshe table sort e :00:03. 

8 :00: $6 :00: i: 
ad table output 00:00. :00:00. 
Psect synopsis output :00:00. :00. 
Cross-reference output ° :00. 
Assembler run totals 54 ° :é/. 


The yorking » 15, ‘tate was 1200 popes. 
5097 eyeet pages) of virt memory were used to buffer the intermediate code. 
There were 50 pages of symbol table sacs oeieat d to hold 932 non-local ag 19 local symbols. 
source tings were read in Pass 1, produ object records in Pass 
2 pages of virtual memory were used to define 954 macros. 


ee ROSE DST AMOEBA one amae + 


; Macro Library statistics ; 


Macro Library name Macros defined 
$2558DUA28: SYS. “OBJILIB. MLB; 1 12 
“$255SDUA28: SYSLIBISTARLET. MLB;2 g 

TOTALS (all libraries) 1 


1053 GETS were required to define 18 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LISS$:SYSPURGWS/0BJ=0BJ$:SYSPURGWS MSRC$:SYSPURGWS/UPDATE=(ENHS$:SYSPURGWS) +EXECMLS$/LIB 
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